Attribute VB_Name = "jSheet"
Function last_row(sheet As Worksheet) As Integer
    last_row = sheet.UsedRange.Rows.Count
End Function
Function last_column(sheet As Worksheet) As Integer
    last_column = sheet.UsedRange.Columns.Count
End Function
